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We introduce here some examples of VHDL based digital circuits design for 
Lab work. 

4-Bit Adder/Subtractor 



B, A, B; A : B, A, B„ A„ 




--XOR gate VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 

Entity xor_gate is 
Port( A, B: in std_logic; 

F: out std_logic); 
End xor_gate; 

Architecture xorjbehav of xor_gate is 
Begin 

F<= AxorB; 
End xor_behav; 

-Full adder VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 
Entity FA is 

Port( X, Y,Cin: in stdjogic; 

Sum,Cout: out stdjogic); 

End FA; 

Architecture FAJbehav of FA is 
Begin 

Sum <= (X xor Y) xor Cin; 
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Cout <= (X and Y) or( (X xor Y) and Cin); 
End FA_behav; 

--Top level 4-bit AdderSubtractor 

Library ieee; 

Use ieee.std_logic_1164.all; 

Entity Addsub is 
Port( M: in std_logic; 

A, B: in std_logic_vector(3 downto 0); 

Sum: out std_logic_vector(3 downto 0); 

Carry, V: out std_logic); 
End Addsub; 

Architecture Addsub_Sruct of Addsub is 
Component xor_gate is 
Port( A, B: in std_logic; 

F: out std_logic); 
End component; 
Component FA is 
Port( X, Y,Cin: in stdjogic; 

Sum,Cout: out stdjogic); 
End component; 

Signal C :std_logic_vector(4 downto 1); 
Signal temp: std_logic_vector(3 downto 0); 

Begin 

XG1: xor_gate port map (M, B(0),temp(0)); 
XG2: xor_gate port map (M, B(l),temp(l)); 
XG3:xor_gate port map (M, B(2),temp(2)); 
XG4: xor_gate port map (M, B(3),temp(3)); 

FAO: FA port map (A(0), temp(0), M, Sum(0),C(l)); 
FA1: FA port map (A(l), temp(l), C(l), Sum(l),C(2)); 
FA2: FA port map (A(2), temp(2), C(2), Sum(2),C(3)); 
FA3: FA port map (A(3), temp(3), C(3), Sum(3),C(4)); 

V <= C(3) xor C(4); 
Carry <= C4; 

End Addsub_Struct; 
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4-to 1 Mux using If statement 



--Neglect enable input 



LIBRARY : 

USE ieee 



ENTITY mu: 
PORT (s 



td_logic_1164 . ALL; 
x4 1 IS 



in3 

output 



IN STD_LOGIC; 

IN STD_LOGIC; 

IN STD_LOGIC; 

IN STDJLOGIC; 

IN STD_LOGIC; 

IN STDJLOGIC; 

OUT STD_LOGIC 



S- : Si S: 



ARCHITECTURE if example OF mux4 1 IS 
BEGIN 

mux : PROCESS (sO, si, inO, inl, in2, in3) 
BEGIN 

IF (s0='0' AND sl='0') THEN 

output <= inO; 
ELSIF (sO='l' AND sl='0') THEN 

output <= inl; 
ELSIF (s0='0' AND sl='l') THEN 

output <= in2; 
ELSIF (sO='l' AND sl='l') THEN 

output <= in3; 
ELSE — (sO or si are not 0 or 1) 

output <= 'X' ; 
END IF; 

END PROCESS mux; 

END if_example; 



4-tol Mux using case statement 

LIBRARY ieee; 

USE ieee . std_logic_ll 64 . ALL; -- Package declaration. 

ENTITY mux4 1 IS 
PORT (sO 

si 
inO 
inl 
in2 
in3 



IN STD_LOGIC, 

IN STDJLOGIC, 

IN STD_LOGIC, 

IN STDJLOGIC, 

IN STD_LOGIC, 

IN STD_LOGIC, 
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output : OUT STDJLOGIC 

) ; 

END mux4_l; 



ARCHITECTURE caseexample OF mux4_l IS 
BEGIN 

mux : PROCESS (sO, si, inO, inl, in2, in3) 

VARIABLE sel : STD_LOGIC_VECTOR ( 1 DOWNTO 0); 
BEGIN 

sel := si & sO; -- concatenate si and sO 



CASE sel IS 



WHEN "00" 


=> 


output 


<= 


inO; 


WHEN "01" 




output 


<= 


inl; 


WHEN "10" 




output 


<= 


in2; 


WHEN "11" 


=> 


output 


<= 


in3; 


WHEN OTHERS 




output 


<= 


'X' ; 



END CASE; 



END PROCESS mux; 
END case_example; 



2-to 1 Mux using (with -select) statement 

library ieee; 

use ieee . std_logic_l 1 64 . all; 



entity mux_using_with is 
port ( 



sel 

mux out 



in std_logic; 
in std_logic; 
in std_logic; 
out std_logic 



Mux first input 
■ Mux Second input 
Select input 
Mux output 



) ; 



end entity; 

architecture behavior of mux_using_with is 

begin 

with (sel) select 

mux_out <= din_0 when ' 0 ' , 

din 1 when others; 



end architecture; 
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4 to 2 Encoder 



library IEEE; 

use IEEE.STD_LOGIC_1164.ALL; 
use ffiEE.STD_LOGIC_ARITH.ALL; 

entity encod is 

Port ( a : in STD_LOGIC_VECTOR (3 downto 0); 
b : out STD_LOGIC_VECTOR (1 downto 0)); 
end encod; 



architecture Behavioral of encod is 
begin 
process(a) 
begin 

if(a(0)=T) then b<="00"; 
elsif(a(l)=T) then b<="01"; 
elsif(a(2)=T) then b<="10"; 
elsif(a(3)='l') then b<="ll"; 
end if; 
end process; 
end Behavioral; 



16-to 4 Encoder - Using if-else Statement 



-- Design Name : encoder_using_if 

File Name : encoder using if.vhd 



library ieee; 

use ieee . std_logic_l 1 64 . all; 



entity encoder_usir 
port ( 

enable 

encoder_in 

binary_out 

Output 



in std_logic; -- Enable for the encoder 

in std_logic_vector (15 downto 0) ; -- 16-bit Input 
out std_logic_vector (3 downto 0) -- 4 bit binary 



) ; 

end entity; 



architecture behavior of encoder_using_if is 
begin 

process (enable, encoder_in) begin 
binary_out <= "0000"; 
if (enable = '1') then 

if (encoder_in = X"0002") then binary_out <= "0001"; end if; 

if (encoder_in = X"0004") then binary_out <= "0010"; end if; 

if (encoder_in = X"0008") then binary_out <= "0011"; end if; 

if (encoder_in = X"0010") then binary_out <= "0100"; end if; 
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if 


(encoder in 


= X"0020" 


then 


binary 


out 


<= 


"0101"; 


end 


if ; 


if 


(encoder in 


= X"0040" 


then 


binary 


out 


<= 


"0110"; 


end 


if ; 


if 




= X"0080" 




binary 






"0111"; 




if ; 


if 


(encoder in 


= X"0100" 


then 


binary 


out 


<= 


"10 0 0"; 


end 


if ; 


if 




= X"0200" 


then 




out 


<= 


"1001"; 


end 


if ; 


if 


(encoder in 


= X"0400" 


then 


binary 


_out 




"1010"; 


end 


if ; 


if 


(encoder in 


= X"0800" 


then 


binary 


[out 




"1011"; 


end 


if ; 


if 


(encoder in 


= X"1000" 


then 


binary 


[out 


<= 


"1100"; 


end 


if ; 


if 


(encoder in 


= X"2000" 


then 


binary 


out 




"1101"; 


end 


if ; 


if 


(encoder in 


= X"4000" 




binary 


_out 


<= 


"1110"; 


end 


if; 


if 


(encoder in 


= X"8000" 


then 


binary 


_out 




"1111"; 


end 


if; 


end if, 





















end process; 



16 to 4 Encoder - Using case Statement 



Design Name : encoder using case 
File Name : encoder_using_case . vhd 
-- Function : Encoder using Case 



library ieee; 

use ieee . std_logic_ll 64 . all; 

entity encoder_using_case is 
port ( 

enable : in std_logic; -- Enable for the encoder 

encoder_in : in std_logic_vector (15 downto 0); 16-bit Input 

binary_out rout std_logic_vector (3 downto 0) -- 4 bit binary 

Output 

) ; 

end entity; 

architecture behavior of encoder_using_case is 
begin 

process (enable, encoder_in) begin 
if (enable = '1') then 



case (encoder in 


) is 










X' 


0002" 


=> 


binary 


_out 


<= 


"0001" 


when 


X' 


0004" 




binary 


out 




"0010" 




X' 


0 0 0 8" 




binary] 


[out 


<= 


"0011" 


when 


X' 


0 010" 




binary 


out 




"0100" 




X' 


0020" 




binary" 


[out 




"0101" 




X' 


0040" 




binary_ 


[out 


<= 


"0110" 


when 


X' 


0 0 8 0" 




binary 


out 




"0111" 




X' 


010 0" 




binary] 


[out 


<= 


"10 0 0" 


when 


X' 


0200" 




binary 


out 




"10 01" 




X' 


0400" 




binary" 


[out 




"1010" 




X' 


0 8 0 0" 




binary_ 


[out 




"1011" 


when 


X' 


10 0 0" 




binary 


out 




"1100" 




X' 


2 0 0 0" 


=> 


binary 


_out 


<= 


"1101" 


when 


X' 


4 0 0 0" 


=> 


binary 


out 


<= 


"1110" 
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when X"8000" => binary_out <= "1111" 

when others => binary_out <= "0000" 
end case; 
end if; 
end process; 
end architecture; 



4 to 2 Priority-Encoder - Using if -else Statement 

— encoder_in (3) has the highest proirity 
library ieee; 

use ieee . std_logic_l 1 64 . all; 

entity pri_encoder_using_if is 
port ( 

enable : in std_logic; -- Enable for the encoder 

encoder_in : in std_logic_vector (3 downto 0); -- 4-bit Input 
binary_out rout std_logic_vector (1 downto 0) --2 bit binary 

Output 

) ; 

end entity; 

architecture behavior of pri_encoder_using_if is 
begin 

process (enable, encoder_in) begin 
binary_out <= "ZZ"; 
if (enable = '1') then 

if (encoder_in = 0001") then 

binary_out <= "00"; 
elsif (encoder_in = "001X") then 

binary_out <= "01"; 
elsif (encoder_in = "01XX") then 

binary_out <= "10"; 
elsif (encoder_in = "1XXX") then 
binary_out <= "11"; 

else 

binary_out <= "ZZZZ"; 
end if; 
end if; 
end process; 
end architecture; 
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16-to 4 Priority-Encoder - Using if -else Statement 



-- Design Name : pri_encoder_using_if 
— encoder_in (0) has the highest proirity 



library ieee; 

use ieee . std_logic_l 1 64 . all; 

entity pri_encoder_using_if is 
port ( 

enable : in std_logic; -- Enable for the encoder 

encoder_in : in std_logic_vector (15 downto 0); -- 16-bit Input 
binary_out rout std_logic_vector (3 downto 0) 4 bit binary 

Output 

) ; 

end entity; 

architecture behavior of pri_encoder_using_if is 
begin 

process (enable, encoder_in) begin 
binary_out <= "0000"; 
if (enable = '1') then 



if (encoder_in 


= "XXXXXXXXXXXXXXX1") then 


binary out < 


= "0000"; 




if (encoder in 


= "XXXXXXXXXXXXXX10") then 


binary out 


<= "0001"; 




elsif (encoder 


in = "XXXXXXXXXXXXX100") 


then 


binary out 


<= "0010"; 




elsif (encoder 


in = "XXXXXXXXXXXX1000") 


then 


binary out 


<= "0011"; 




elsif (encoder 


in = "XXXXXXXXXXX10000") 


then 


binary out 


<= "0100"; 




elsif (encoder 


in = "XXXXXXXXXX100000") 


then 


binary_out 


<= "0101"; 




elsif (encoder 


in = "XXXXXXXXX1000000") 


then 


binary out 


<= "0110"; 




elsif (encoder 


in = "XXXXXXXX10000000") 


then 


binary out 


<= "0111"; 




elsif (encoder 


in = "XXXXXXX100000000") 


then 


binary out 


<= "1000"; 




elsif (encoder 


in = "XXXXXX1000000000") 


then 


binary out 


<= "1001"; 




elsif (encoder 


in = "XXXXX10000000000") 


then 


binary out 


<= "1010"; 




elsif (encoder 


in = "XXXX100000000000") 


then 


binary_out 


<= "1011"; 




elsif (encoder 


in = "XXX1000000000000") 


then 


binary_out 


<= "1100"; 




elsif (encoder 


in = "XX10000000000000") 


then 


binary out 


<= "1101"; 




elsif (encoder 


in = "X100000000000000") 


then 


binary out 


<= "1110"; 




elsif (encoder 


in = "1000000000000000") 


then 


binary out 


<= "1111"; 
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end 
end if; 
end process; 
end architecture; 



else 

inary_out <= "ZZZZ" 



16to 4 Priority Encoder - Using when Statement 

Design Name : pri_encoder_using_when 
-- encoder_in (0) has the highest proirity 

library ieee; 

use ieee . std_logic_ll 64 . all; 



entity pri_encoder_ 
port ( 

enable 

encoder_in 

binary_out 

Output 



in std_logic; -- Enable 

in std_logic_vector (15 downto 0) ; -- 
out std_logic_vector (3 downto 0) 



for the encoder 
16-bit Input 
4 bit binary 



) ; 



architecture behavior of pri_encoder 



begin 

binary_out <= 



'0000' 
'0000' 
"0001' 
"0010' 
"0011' 
"0100' 
"0101' 
"0110' 
"0111' 
"10 0 0' 
"10 01' 
"1010' 
"1011' 
"110 0' 
"1101' 
"1110' 

"1111' 



(encoder 
(encoder 



when (enable : 

when (encoder 

when (encoder 

when (encoder 

when (encoder 
when 
when 

when (encoder 

when (encoder 

when (encoder 

when (encoder 

when (encoder 

when (encoder 

when (encoder 

when (encoder 



' ) else 

= "XXXXXXXXXXXXXXX1" 
= "XXXXXXXXXXXXXX10" 
= "XXXXXXXXXXXXX100" 
= "XXXXXXXXXXXX1000" 
= "XXXXXXXXXXX10000" 
= "XXXXXXXXXX100000" 
= "XXXXXXXXX1000000" 
= "XXXXXXXX10000000" 
= "XXXXXXX100000000" 
= "XXXXXX1000000000" 
= "XXXXX10000000000" 
= "XXXX100000000000" 
= "XXX1000000000000" 
= "XX10000000000000" 
= "X100000000000000" 



else 
else 
else 
else 
else 
else 
else 
else 
else 
else 
else 
else 
else 
else 
else 



end architecture; 



2 to 4 Decoder 

library IEEE; 

use IEEE. STD_LOGIC_1164 . ALL; 
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entity decode_2to4_top is 

Port (A : in STD_LOGIC_VECTOR (1 downto 0) 

X : out STD_LOGIC_VECTOR (3 downto 0) 

EN : in STDJLOGIC) ; 
end decode_2to4_top; 

architecture Behavioral of decode_2to4_top is 
begin 

process (A, EN) 
begin 

X <= "0000"; — default output value 

if (EN = '1') then -- active high enable pin 
case A is 



when 


"00" => 


X(0) 


<= ' 1 ' ; 


when 


"01" => 


X(l) 


<= ' 1 ' ; 


when 


"10" => 


X(2) 


<= ' 1 ' ; 




"11" => 


X(3) 


<= ' 1 ' ; 




others 


=> X 


<= "0000" 



end case; 
end if; 

end Behavioral; 



4 to 16 Decoder - Using case Statement 

library ieee; 

use ieee . std_logic_ll 64 . all; 

entity decoder using case is 
port ( 

enable : in std_logic; -- Enable for the decoder 

binary_in : in std_logic_vector (3 downto 0); -- 4-bit Input 
decoder_out rout std_logic_vector (15 downto 0) -- 16-bit Output 

) ; 

end entity; 

architecture behavior of decoder_using_case is 
begin 

process (enable, binary_in) begin 
decoder_out <= X"0000"; 
if (enable = '1') then 



case (binary in 


) i 










when X"0" 




decoder 


out 


<= 


X"0001 


when X"l" 




decoder 


_out 


<= 


X"0002 


when X"2" 


=> 


decoder 


[out 


<= 


X"0004 


when X"3" 




decoder 


out 




X"0008 


when X"4" 




decoder 


_out 


<= 


X"0010 


when X"5" 




decoder 


out 




X"0020 


when X"6" 




decoder 


[out 


<= 


X"0040 


when X"7" 


=> 


decoder 


[out 


<= 


X"0080 


when X"8" 




decoder 


out 




X"0100 


when X"9" 


=> 


decoder 


_out 


<= 


X"0200 


when X"A" 




decoder 


out 


<= 


X"0400 



-- 2-bit input 
-- 4-bit output 
-- enable input 
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when X"B" => decoder_out <= X"0800 

when X"C" => decoder_out <= X"1000 

when X"D" => decoder_out <= X"2000 

when X"E" => decoder_out <= X"4000 

when X"F" => decoder_out <= X"8000 

when others => decoder_out <= X"0000 
end case; 
end if; 
end process; 
end architecture; 



4 to 16 Decoder using (with-select) statement 



Design Name : decoder using with 
-- File Name : decoder_using_with . vhd 
-- Function : decoder using with-select 



library ieee; 

use ieee . std_logic_ll 64 . all; 

entity decoder_using_select is 
port ( 

enable : in std_logic; -- Enable for the decoder 

binary_in : in std_logic_vector (3 downto 0); -- 4-bit input 
decoder_out rout std_logic_vector (15 downto 0) 16-bit output 

) ; 

end entity; 

architecture behavior of decoder_using_select is 
begin 



with (binary in) select 




decoder out <= X"0001" 




X"0", 


X"0002" 


when 


X"l", 


X"0004" 




X"2", 


X"0008" 


when 


X"3", 


X"0010" 


when 


X"4", 


X"0020" 




X"5", 


X"0040" 


when 


X"6", 


X"0080" 


when 


X"7", 


X"0100" 


when 


X"8", 


X"0200" 


when 


X"9", 


X"0400" 




X"A", 


X"0800" 


when 


X"B", 


X"1000" 




X"C", 


X"2000" 


when 


X"D", 


X"4000" 


when 


X"E", 


X"8000" 


when 


X"F", 


X"0000" 


when 


others 



end architecture; 
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A Flip-flop is the basic element which is used to store information of one bit. Flip- 
flops have their content change either at the rising or falling edge of the enable 
signal(usually the controlling clock signal). 

There are basically four main types of flip-flops: 

1. SR Flip-flop 

2. D Flip-flop 

3. JK Flip-flop 

4. T Flip-flop. 

1 . SR FLIP-FLOP VHDL Code : 

A SR flip flop used in digital electronics will provide the results in a similar 
manner to the JK flip flop and this is the reason why the vhdl codes for 
these two flipflops are similar in nature. 

Given below is a behavioral approach of writing the code for a SR Flip-flop. 





QUI 

| 


CLOCK 








SR 


s 

R 


FLIP-FLOP 




PRESET 



(mm 



library ieee; 

use ieee. std_logic_l 164. all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 
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entity SR-FF is 

PORT( S,R,CLOCK,CLR,PRESET: in stdjogic; 

Q, QBAR: out stdjogic); 

end SR-FF; 

Architecture behavioral of SR-FF is 
begin 

PI: PROCESS(CLOCK,CLR,PRESET) 

variable x: stdjogic; 

begin 

if(CLR=V) then 
x: = '0'; 

elsif(PRESET='0')then 
x:=T; 

elsif(CLOCK= 7 ' and CLOCK'EVENT) then 

if(S='0' and R='0')then 
x: =x; 

elsif( S= 7 ' and R='l ')then 
x:='Z'; 

elsif( S= V and R= 7 ')then 
x: = '0'; 

else 
x:=T; 

end if; 
end if; 

Q<=x; 

QBAR<=not x; 
end PROCESS; 
end behavioral; 

2. D FLIP-FLOP VHDL Code : 

A D flip flop or Delay flip flop gives the same output as the input provided 
and thus the vhdl code is much simpler. 
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Given below is a behavioral approach of writing the vhdl code for a D Flip- 
flop. 

RST 


D 

CLK 


D 

FLIP-FLOP 

> 


Q 


library ieee; 

use ieee. std_logic_l 164. all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 






entity D-FF is 

PORT( D,CLK,RST: in stdjogic; 

Q: out stdjogic); 

end D-FF; 




architecture behavioral of D-FF is 






begin 

PI: process(RST,CLK) 






begin 






if(RST=T)then 
Q<='0'; 






elsif(CLK= 7 ' and CLK'EVENT) then 
Q<=D; 

end if; end process; 
end behavioral- 
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3. JK FLIP-FLOP VHDL Code : 

Given below is a behavioral approach of writing the code for a JK Flip-flop. 




library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity JK-FF is 

PORT( J,K,CLK,PRST,CLR: in stdjogic; 

Q, QB: out stdjogic); 

end JK-FF; 

Architecture behavioral of JK-FF is 
begin 

PI: PROCESS(CLK,CLR,PRST) 

variable x: stdjogic; 

begin 

if(CLR='0') then 
x:='0'; 

elsif(PRST='0')then 
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x:=T; 

elsif(CLK=T and CLK'EVENT) then 
if(J='0' and K='0')then 
x:=x; 

elsif(J=Tand K=T)then 
x:= not x; 

elsif(J='0' and K=T)then 

x:='0'; 
else 

x:=T; 

end if; 
end if; 

Q<=x; 

QB<=not x; 
end PROCESS; 
end behavioral; 



4. T FLIP-FLOP VHDL Code : 

The T in a t flip flop stands for toggle and this is exactly what this digital 
component does. It simply toggles the value of a particular input. A basic 
not gate will solve the problem in the vhdl code for this element. 

Given below is a behavioral approach of writing the code for a T Flip-flop. 
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library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity T-FF is 

PORT( T,CLK,PRST,RST: in stdjogic; 

Q: out stdjogic); 

end T-FF; 

architecture behavioral of T-FF is 
begin 

PI: process(CLK,PRST,RST) 
variable x: stdjogic; 
begin 

if(RST=*0') then 
x:='0'; 

elsif(RST=T and PRST='0') then 
x:=T; 

elsif(CLK=T and CLK'EVENT) then 

if(T=T)then 

x:= not x; 

end if; 
end if; 

Q<=x; 

end process; 
end behavioral; 
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Regular D latch(register) 



library ieee; 

use ieee . std_logic_ll 64 . all; 



entity dlatch_reset is 
port ( 

data : in std_logic; -- Data input 

en :in std_logic; -- Enable input 

reset : in std_logic; -- Reset input 

q rout std_logic -- Q output 



end entity; 

architecture rtl of dlatch_reset is 
begin 

process (en, reset, data) begin 
if (reset = '0') then 

q <= ' 0 ' ; 
elsif (en = ' 1 ' ) then 

q <= data; 

else 
null; 

end if; 
end process; 



end architecture; 



8-bit Parallel to Serial converter 

-- Description 

-- Implements a simple 8-bit parallel to serial converter in VHDL. 
library ieee; 

use ieee . std_logic_1164 . all ; 
entity PAR2SER is 

port (DIN : in std_logic_vector (7 downto 0) ; -- input register 
MODE : in std_logic_vector (1 downto 0) ; -- mode selection 
CLK, RESET : in std_logic; — clock and reset 
SDOUT : out std_logic); -- output data 
end PAR2SER; 

-- purpose: Implement main architecture of PAR2SER 
architecture BEHAVIOR of PAR2SER is 

signal IDATA : std_logic_vector ( 7 downto 0); -- internal data 
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begin -- BEHAVIOR 

-- purpose: Main process 
process (CLK, RESET) 
begin -- process 

-- activities triggered by asynchronous reset (active high) 

if RESET = ' 1' then 

SDOUT <= ' 0' ; 

I DATA <= "0 0000 000"; 

-- activities triggered by rising edge of clock 
elsif CLK' event and CLK = ' 1' then 

case MODE is 

when "00" => -- no operation 
null; 

when "01" => -- load operation 
IDATA <= DIN; 

when "10" => -- shift left 
SDOUT <= IDATA (7) ; 
for mloop in 6 downto 0 loop 
IDATA (mloop+1) <= IDATA (mloop) ; 
end loop; -- mloop 

when others => -- no operation otherwise 

null; 

end case; 

end if; 

end process; 

end BEHAVIOR; 



BCD to 7-Seg Decoder 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE. std_logic_unsigned. all; 
entity DISPLAY_DECODER is 

port ( VALUE : in bit_vector(3 downto 0); -- Bit 3 is MSB 
ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); -- 7 bit signal 
ZERO_BLANK_OUT : out bit); 
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end DISPLAY_DECODER; 

architecture BEHAVIOUR of DISPLAY_DECODER is 
begin 

process (VALUE, ZERO_BLANK) - sensitivity list 
begin 

case VALUE is -- case-when statement described how decode is 

-- driven based on the value of the input. 

when "0000" => if ZERO_BLANK=T then 

DISPLAY <= "0000000"; 

ZERO_BLANK_OUT <= '1'; 

else 

DISPLAY <= "1111110"; 
end if; 

when "0001" => DISPLAY <= "0110000"; 
when "0010" => DISPLAY <= "1101101"; 
when "0011" => DISPLAY <= "1111001"; 
when "0100" => DISPLAY <= "0110011"; 
when "0101" => DISPLAY <= "1011011"; 
when "0110" => DISPLAY <= "1011111"; 
when "0111" => DISPLAY <= "1110000"; 
when "1000" => DISPLAY <= "1111111"; 

when OTHERS => DISPLAY <= "1001111"; -- when others, an error is specified 
end case; 
end process; 
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end BEHAVIOUR; 

Test bench 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE. std_logic_unsigned. all; 
entity DISPLAY_DECODER_TB is 
end DISPLAY_DECODER_TB; 

architecture ARC_DISPLAY_DECODER_TB of DISPLAY_DECODER_TB is 

signal VALUE : bit_vector(3 downto 0); 

signal ZERO_BLANK : bit; 

signal DISPLAY : bit_vector(6 downto 0); 

signal ZERO_BLANK_OUT : bit; 

component DISPLAY_DECODER 

port ( VALUE : in bit_vector(3 downto 0); 

ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); 

ZERO_BLANK_OUT : out bit); 

end component; 

begin 

INPUT_VALUES: process 
begin 

ZERO_BLANK<=T; 
VALUE <= "0000"; 
wait for 5 ns; 
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ZERO_BLANK <= '0'; 
VALUE <= "0000"; 
wait for 7 ns; 
ZERO_BLANK<=T; 
VALUE <= "0010"; 
wait for 12 ns; 
ZERO_BLANK <= '0'; 
VALUE <= "0100"; 
wait for 12 ns; 
ZERO_BLANK<='0'; 
VALUE <= "0110"; 
wait for 7 ns; 

end process INPUT_VALUES; 
Ul: DISPLAY_DECODER 

port map(VALUE, ZERO_BLANK, DISPLAY, ZERO_BLANK_OUT); 
end ARC_DISPLAY_DECODER_TB; 

configuration CFG_DISPLAY_DECODER of DISPLAY_DECODER_TB is 

for ARC_DISPLAY_DECODER_TB 

for Ul:DISPLAY_DECODER use entity 

work.DISPLAY_DECODER(BEHAVIOUR); 

end for; 

end for; 

end CFG_DISPLAY_DECODER; 
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A comparator circuit 

library ieee; 

use ieee . std_logic_ll 64 . all; 



entity Comparator is 



A: in std_logic_vector (2 downto 0); 

B: in std_logic_vector (2 downto 0); 

less: out std_logic; 

equal: out std_logic; 

greater: out std_logic 



end Comparato 



architecture behv of Comparato 

begin 

process (A, B) 
begin 

if (A<B) then 

less <= ' 1 ' ; 

equal <= ' 0 ' ; 

greater <= ' 0 ' ; 
elsif (A=B) then 

less <= ' 0 ' ; 

equal <= ' 1 ' ; 

greater <= ' 0 ' ; 

else 

less <= ' 0'; 
equal <= ' 0 ' ; 
greater <= ' 1 ' ; 
end if; 
end process; 



Registers 

library ieee ; 

use ieee . std_logic_ll 64 . all; 
use ieee . std_logic_unsigned . all ; 



entity reg is 



in std_logic_vector ( 1 downto 0); 
in std_logic; 
in std_logic; 
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clear: in std_logic; 

Q: out std_logic_vector ( 1 downto 0) 

) ; 

end reg; 

architecture behv of reg is 

signal Q_tmp: std_logic_vector ( 1 downto 0); 
begin 

process (I, clock, load, clear) 
begin 

if clear = ' 0 ' then 

-- use 'range in signal assigment 

Q_tmp <= "00"; 
elsif (clock='l' and clock'event) then 

if load = '1' then 
Q_tmp <= I; 

end if; 
end if; 



end process; 



-- concurrent statement 
Q <= Q_tmp; 



Shift registers 

3-bit Shift-Register/Shifter 
reset is ignored in this code 

library ieee ; 

use ieee . std_logic_ll 64 . all; 



entity shift_reg is 

port( I: in std_logic; 

clock: in std_logic; 

shift: in std_logic; 

Q: out std_logic 

) ; 

end shift_reg; 



architecture behv of shift_reg is 

-- initialize the declared signal 

signal S: std_logic_vector (2 downto 0):="111" 
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process(I, clock, shift, S) 
begin 

-- everything happens upon the clock changing 
if clock'event and clock='l' then 

if shift = '1' then 

S <= I & S (2 downto 1) ; 

end if; 
end if; 

end process; 

-- concurrent assignment 
Q <= S ( 0 ) ; 

end behv; 



n-bit counter 

— VHDL code for n-bit counter 
library ieee ; 

use ieee . std_logic_ll 64 . all; 
use ieee . std_logic_unsigned . all; 



entity counter is 

generic (n: natural :=2); 
port ( clock: in std_logic; 

clear: in std_logic; 

count: in std_logic; 

Q: out std_logic_vector (n-1 downto 0) 

) ; 

end counter; 

architecture behv of counter is 

signal Pre_Q: std_logic_vector (n-1 downto 0); 
begin 

-- behavior describe the counter 

process (clock, count, clear) 
begin 

if clear = ' 1 ' then 

Pre_Q <= Pre_Q - Pre_Q; 
elsif (clock='l' and clock'event) then 
if count = '1' then 

Pre_Q <= Pre_Q + 1; 
end if; 
end if; 
end process; 



Instructor Dr. Mahmoud Alshewimy 



-- concurrent assignment statement 
Q <= Pre_Q; 
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